home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / laserpro.zip / INVOICE1.PRG < prev    next >
Text File  |  1991-03-02  |  5KB  |  130 lines
  1. * Program-id...: INVOICE1.PRG
  2. * Author.......: Richard H. Elliott, Ferret Software
  3. * Purpose......: Uses LaserPro procedure file routines to
  4. *              : print a report.
  5. *              : Uses soft fonts.
  6.  
  7. SET TALK off
  8.  
  9. SET PROCEDURE TO LaserPro                        && Use LaserPro procedure
  10.  
  11. DO init_print                                    && Initialize
  12. ??? reset                                        && Clean up stuff left behind
  13.  
  14. ** LOAD FONTS, ASSIGN ID NUMBERS
  15. ??? FONTLOAD("HELV24ST.SFP", 101,printport)         && Loads fonts and assigns
  16. ??? FONTLOAD("HELV6.SFP",    102,printport)         && ID numbers
  17. ??? FONTLOAD("ROMN10.SFP",   103,printport)
  18. ??? FONTLOAD("ROMN18CB.SFP", 104,printport)
  19. helv24   = 101                                    && Assign font IDs
  20. helv6    = 102                                    && to variables (makes
  21. roman10  = 103                                    && program more readable
  22. roman18  = 104
  23.  
  24. ** DRAW INVOICE
  25. ??? BOX( 0.60 , 1.20 , 6.00 , 7.50 ,  5 )        && Draws upper right
  26. ??? HLINE( 0.80 , 6.00, 1.50, 5 )                && invoice number box
  27. ??? SHADING( 0.60 , 0.80 , 6.00 , 7.50 ,  20 )
  28.  
  29. ??? BOX( 4.00 , 9.50, 0.50 , 7.50 ,  7 )         && Big box for invoice
  30. ??? HLINE( 4.20 , 0.50, 7.00, 5 )
  31. ??? HLINE( 4.60 , 0.50, 7.00, 5 )
  32. ??? HLINE( 4.80 , 0.50, 7.00, 5 )
  33. ??? HLINE( 8.40 , 0.50, 7.00, 5 )
  34. ??? SHADING( 4.00 , 4.20 , 0.50 , 7.50 ,  20 )   && Medium shading for column
  35. ??? SHADING( 4.60 , 4.80 , 0.50 , 7.50 ,  20 )   && headings
  36. ??? VLINE( 4.00 , 1.50, 0.60, 5 )
  37. ??? VLINE( 4.00 , 2.50, 0.60, 5 )
  38. ??? VLINE( 4.00 , 4.00, 0.60, 5 )
  39. ??? VLINE( 4.00 , 5.00, 0.60, 5 )
  40. ??? VLINE( 4.00 , 6.50, 0.60, 5 )
  41. ??? VLINE( 4.60 , 1.50, 0.20, 5 )
  42. ??? VLINE( 4.60 , 2.50, 0.20, 5 )
  43. ??? VLINE( 4.60 , 5.00, 0.20, 5 )
  44. ??? VLINE( 4.60 , 5.50, 0.20, 5 )
  45. ??? VLINE( 4.60 , 6.50, 0.20, 5 )
  46. ??? VLINE( 4.80 , 1.50, 3.60, 2 )
  47. ??? VLINE( 4.80 , 2.50, 3.60, 2 )
  48. ??? VLINE( 4.80 , 5.00, 3.60, 2 )
  49. ??? VLINE( 4.80 , 5.50, 3.60, 2 )
  50. ??? VLINE( 4.80 , 6.50, 3.60, 2 )
  51. ??? VLINE( 8.40 , 5.50, 1.10, 5 )
  52. ??? VLINE( 8.40 , 6.50, 1.10, 5 )
  53. ??? SHADING( 4.80 , 5.00 , 0.50 , 7.50 , 5 )   && Light shading for invoice
  54. ??? SHADING( 5.20 , 5.40 , 0.50 , 7.50 , 5 )   && text bars
  55. ??? SHADING( 5.60 , 5.80 , 0.50 , 7.50 , 5 )
  56. ??? SHADING( 6.00 , 6.20 , 0.50 , 7.50 , 5 )
  57. ??? SHADING( 6.40 , 6.60 , 0.50 , 7.50 , 5 )
  58. ??? SHADING( 6.80 , 7.00 , 0.50 , 7.50 , 5 )
  59. ??? SHADING( 7.20 , 7.40 , 0.50 , 7.50 , 5 )
  60. ??? SHADING( 7.60 , 7.80 , 0.50 , 7.50 , 5 )
  61. ??? SHADING( 8.00 , 8.20 , 0.50 , 7.50 , 5 )
  62.  
  63. ** FILL OUT TEXT PORTION OF INVOICE
  64.  
  65. ??? SOFTFONT(roman18)                            && Select 18 point Times-Roman
  66. ??? SAYIT( 0.60, 0.50, 'FERRET SOFTWARE','')
  67. ??? SOFTFONT(roman10)                            && Select 10 point Times-Roman
  68. ??? SAYIT( 0.80, 0.50, '1102 Burwick Drive')
  69. ??? SAYIT( 1.00, 0.50, 'Herndon, VA 22070')
  70. ??? SAYIT( 1.20, 0.50, '(703) 742-8266')
  71. ??? SOFTFONT(helv24)                             && Select 24 point Helvetica
  72. ??? SAYIT( 0.35, 5.90, 'INVOICE','')
  73. ??? SOFTFONT(roman10)                            && Select 10 point Times-Roman
  74. ??? SAYIT( 0.76, 6.30, 'INVOICE NO.','')
  75. ??? SOFTFONT(helv6)                              && Select 6 point Helvetica
  76. ??? SAYIT( 2.30, 0.50, 'S','')
  77. ??? SAYIT( 2.40, 0.50, 'O','')
  78. ??? SAYIT( 2.50, 0.50, 'L','')
  79. ??? SAYIT( 2.60, 0.50, 'D','')
  80. ??? SAYIT( 2.80, 0.50, 'T','')
  81. ??? SAYIT( 2.90, 0.50, 'O','')
  82. ??? SAYIT( 2.30, 4.50, 'S','')
  83. ??? SAYIT( 2.40, 4.50, 'H','')
  84. ??? SAYIT( 2.50, 4.50, 'I','')
  85. ??? SAYIT( 2.60, 4.50, 'P','')
  86. ??? SAYIT( 2.80, 4.50, 'T','')
  87. ??? SAYIT( 2.90, 4.50, 'O','')
  88. ??? VLINE( 1.90 , 0.50, 0.30, 1 )
  89. ??? VLINE( 2.95 , 0.50, 0.30, 1 )
  90. ??? HLINE( 1.90 , 0.50, 0.30, 1 )
  91. ??? HLINE( 3.25 , 0.50, 0.30, 1 )
  92. ??? VLINE( 1.90 , 4.50, 0.30, 1 )
  93. ??? VLINE( 2.95 , 4.50, 0.30, 1 )
  94. ??? HLINE( 1.90 , 4.50, 0.30, 1 )
  95. ??? HLINE( 3.25 , 4.50, 0.30, 1 )
  96. ??? SOFTFONT(roman10)                            && Select 10 point Times-Roman
  97. ??? SAYIT( 4.16, 0.65, 'INV DATE','')
  98. ??? SAYIT( 4.16, 1.60, 'SALES REP','')
  99. ??? SAYIT( 4.16, 2.80, 'ORDER NO.','')
  100. ??? SAYIT( 4.16, 4.03, 'ORDER DATE','')
  101. ??? SAYIT( 4.16, 5.40, 'SHIP VIA','')
  102. ??? SAYIT( 4.16, 6.72, 'TERMS','')
  103. ??? SAYIT( 4.76, 0.58, 'QTY ORDER','')
  104. ??? SAYIT( 4.76, 1.69, 'QTY SHIP','')
  105. ??? SAYIT( 4.76, 2.70, 'ITEM NUMBER/DESCRIPTION','')
  106. ??? SAYIT( 4.76, 5.07, 'UNIT','')
  107. ??? SAYIT( 4.76, 5.55, 'UNIT PRICE','')
  108. ??? SAYIT( 4.76, 6.65, 'AMOUNT','')
  109. ??? SAYIT( 8.60, 5.60, 'SALES','')
  110. ??? SAYIT( 8.80, 5.60, 'SALES TAX','')
  111. ??? SAYIT( 9.00, 5.60, 'FREIGHT','')
  112. ??? HLINE( 9.10, 5.50, 2.00, 3 )
  113. ??? SAYIT( 9.35, 5.60, 'TOTAL','')
  114.  
  115. ** Remove the following for "real" use
  116. ??? INTERNAL(1)                                 && Selects internal Courier 10
  117. ??? SAYIT( 10.00, 0.50, 'INVOICE1.PRG - SOFT FONT DEMO','' )
  118.  
  119. ** NOTE: The following uses the DOS copy command
  120. ** to copy an image to the printer.  I'm experimenting
  121. ** with this and hope to have something in the
  122. ** future to allow image management as well.
  123. ** Remove unless you like ferrets.
  124.  
  125. !COPY FERRET.PIC /B &printport /B > NUL               && Prints cute picture
  126.  
  127. EJECT
  128.  
  129. ** EOF: INVOICE1.PRG
  130.